JOGOS. 
PARA O SEU 


ZX SPECTRUM 


) 


JOAQUIM JOSÉ DOS SANTOS 
e 
ARLINDO M. CORREIA 


Publicamos e premiamos, em Abril, os jogos TOTOBOLA e VOCABULÁRIO, 
respectivamente da autoria de Joaquim dos Santos e Arlindo Correia. | 
Mais uma vez lembramos aos nossos colaboradores que oferecemos uma assinatura | 
semestral dos «Jogos Sortidos» e um volume encadernado do «Jornal da BD» 
aos autores dos programas publicados. 


ENVIE-NOS OS SEUS PROGRAMAS ORIGINAIS 
E GANHE PREMIOS 


Colabore connosco, enviando-nos o seu programa original, do seguinte modo: 


1. Nome, morada, idade e n.º de teleforre. 
2. O programa de preferência em cassette, indicando o tipo e a capacidade do computador. 
3. Uma descrição geral do jogo com as instruções necessárias. 
4. Uma explicação detalhada da função das várias partes do programa. 


Para: JOGOS SORTIDOS - Rua Duque de Palmela, 37, 2.º-Dto. — 1200 LISBOA 


À 


Em tempos de crise, jogue com o seu ZX Spectrum. 
Eis um jogo da autoria do nosso colaborador Joaquim 
José Nunes dos Santos, de Estoi, que o ajuda a fazer 
palpites para o Totobola. Tem como base números alea- 
tórios. Começa por imprimir Totobola no meio da primeira 
linha, depois JOGO e PALPITE na 2.2 linha. Aparece, 
por baixo o cursor «L», pedindo que lhe seja fornecido 
o jogo para palpite. Ao carregar em ENTER aparece o 
simbolo palpitado, em tamanho grande, no meio do écran, 
durante um certo período de tempo. Em seguida, o 
simbolo palpitado e o jogo do palpite apagam-se e o 
computador espera que lhe seja fornecido outro jogo 
para palpite. 


REM palFpi 
BORDER 1: 
PRINT AT 
PRINT AT 
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VOCABULÁRIO 


Este programa foi escrito por Arlindo N. M. Correia 
para o ZX SPECTRUM 


Faça um teste aos seus conhecimentos de vocabulário, 
utilizando este programa. 

Na linha 60, a variável «n» indica o número de palavras 
e respectivo significado contidas em DATA. 

O computador escolhe ao acaso cinco palavras dife- 
rentes e pergunta-lhe o significado da primeira, exibindo 
os cinco significados por ordem alfabética inversa (fora 
de ordem, portanto). Indique o número correspondente 
à sua resposta que fica em FLASH. Depois de lhe dizer 
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se errou ou acertou, O écran mostra as cinco palavras 
e o seu significado. 

Pode repetir o teste e, em qualquer altura, ver o número 
de respostas certas e erradas, carregando em E — es- 
tatística. 

A listagem contém nas linhas 360 a 505, 150 vocábulos 
e seus significados, habituais nas obras de Aquilino Ri- 
beiro, alguns bastante difíceis. 
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LET fe cr: GO SUB Sig 
IF Y$&=B%h THEN PRINT AT ir+5 
| INK 6; FLASH 1,Bg: GO TO 
NEXT f 

LET UE="ERRBDO. VERIFIQUE A 
POSTA CORRECTA. 

FOR n=1i TO S8 

PRINT AT 21.8; INK à; INUER 
:Uubi TO 32) 
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Neste jogo de C. C. Stock para o ZX SPECTRUM, G2SSIS2A" 
você é o objecto de diversão de um rei de maus instintos, 89 LET a$S(4)="G1ISS2999155S2S5SS1 
que o atira para dentro de um labirinto dominado por "1 
um terrível Minotauro. A primeira operação que terá que 52821529 
fazer é descobrir uma espada, uma armadura e um 101 LET em="--====0.— wa 
escudo, para se defender do Minotauro. Um mapa com E----," 
os dados para esta descoberta é a única coisa que - 119 LET 48=" 
você possui. Com as armas e protecção em seu poder 
conseguirá matar o Minotauro... Todo o movimento do 
jogo é muito rápido. O Minotauro aparece-nos com 7 
tamanhos diferentes, crescendo à medida que se apro- 
xima de si. Prima «M» para ver o mapa. Enquanto o 
mapa aparece no écran o programa pára. 

O labirinto é construído por 4 linhas; 2 para as pas- 

sagens horizontais e 2 para os corredores verticais. 
«O» representa uma abertura no corredor; 
«5» representa o corredor normal e «1» — «4» os cruza- 
mentos. Para desenhar novamente o labirinto, modifique 
as linhas 60 — 140 e 2401 e na linha 20 x1 e y1 refaça 
a posição do Minotauro + 2. Os números das linhas 
dos corredores do labirinto também devem ser alterados. 


129 LET g%=" -E-EH-EN-NE-BE-BRE- 
HERE-N-E-NER- 

139 LET h%=" -NEEE-SEREE-NRENHE - 
RENNEE -RERER- 

149 LET i6="NE-RENRE-ERRES-RERE 
ENEE-NEE-ERNE” 

145 PRINT AT 18,4;"Use keys 5, 
6,7&8 to move"; AT 29,8;"Press a 
ny key” 

159 IF 
159 

169 GO SUB 24989: GO SUB 3299 
a uoddo 1728 PRINT AT 8,16; INVERSE 15" 


ad n Ne 
60-80 - Corredores do labirinto eis » AT 9, lój"any key": INK 9 
100-180 - Mapa - PAPER 6: FOR n=1 TO 3: PRINT 


200-280 - Desenha o corredor AT wil,n),;w(2,n);"Xx": NEXT n 
300-350 - Desenha o cavaleiro 189 BEEP .8,-16: BEEP .8,-22: I 
400-530 - Desenha as passagens laterais F INKEY$ ="" TH 
610-630 - Pode ver-se o Minotauro? 198 INK 6: Mama mi pitas um 
700-770 - Controles j á CLS * PAPER 
800-840 - Desenha o corredor final nd 
850-870 - Quando voltar muda as variáveis 195 PRINT AT 3,17;"Press M for 
1000-1170 - Movimento do Minotauro map"; AT 5,17;"Press A to pick" 
oo = a Pa 5 AT 6,175º up armour * 
3000-3030 — Fim 291 FOR n=8 TO 21: PRINT AT n, 
3200 - Posicionamento aleatório 95; * ": NEXT n 


INKEYS ="" THEN GO TO 


Linhas / Funções 


da armadura e do homem 
3400-3440 - Apanha a armadura 
4000-4540 - Minotauro e o homem 
2> REM *XXXX SID MAZE KXEXE 
e C.C.Stock 1983 
19 IMK 9: PAPER 4: BORDER 2: C 


13 PRINT AT 6,75" MINOTA: 


URVPCS AT BSE,9S" 
ent of the king 
ropped into the 

You only hope 
apons hidden in 
a map provided * 

29 GO SUB 4999 

SO DIM ad(4,34;: LET ali=3: LET 

le-15 LET j=-1: LET x1=29º LET. 
y1=16:; LET qi=t: LET s=1: LET tt 
=): LET t2=0: LET +t3=8 : 

49 LET k=1: IF RND <.5 THEN 
LET kK=-1' 


For the amusem 
You have been d. 
Minotaurs maze. 
is to find 3 we 
the maze using 


60 LET af(1)="93545535549093554 
3553355554539455539" 

78 LET aS(2)="9354553554553554 
9993500004535455539" 

75 LET a6(3)="9155255519925551 


2205 LET m=8 

219 FOR n=9 TO m-i 

239 IF af(a,nkk+p)="9" THEN LE 
T m=n+1i: GO TO 399 

269 PLOT 8Xn, lókn: DRAW 98,16: D 
RAy 9,159-16%n 

278 PLOT 127-8X%n, Ll6kn: DRAW -8, 
16: DRAW 9,159-16Xn 

289 NEXT n 

S19 FOR n=8 TO é 

320 PRINT AT 14+n,6; INVERSE 1 
1r$(1+4$En TO 4+44%Xn): NEXT n 

SSZ IF ti=1 THEN PRINT AT 15, 
o EM 61º 24 AT 00,51" "3 AT 42 
95" "5 AT 9,175 INVERSE 15" Swo 
PO e. 

S49 IF t2=1 THEN FOR n=8 TO 3: 
PAPER 4: PRINT AT 15+4n,9;5 INK 
01" /º: NEXT nº PRINT AT 11,1471º 
Shield ": PAPER 9: PLOT 72,48: 

DRAW 7,9: PLOT 72,32: DRAW 7,9 
358 IF t3=1 THEN PRINT AT 14, 
71 PAPER 25;"WW"; AT 19,17;" Helm 
et * 

419 PLOT 9,9: DRAW 8,16: DRAW 
INVERSE 1;-72,9: PLOT 127,8: DRAW 


-8,16: DRAW  INVERSE 157,9 

428 FOR n=m-1 TO G STEP -1 

439 LET b= VAL asta,ptnkk) 

448 IF b=5 THEN GO TO 529 

459 IF b=S9 THEN LET m=m-1: GO 
TO eg1 

462 IF b=1 OR b=2 THEN IF agt(b 
sxtk)="8" THEN GO TO 498 

478 IF b=4 OR b=3 THEN IF agt(b 
sy-kK)="8" THEN GO TO 581 

489 PLOT 8SXn, 1l6%Xn: DRAW  INVERS 
E 158,16: DRAW -7,8: DRAW 7,8: D 
RAW 6,16: DRAW INVERSE 15-7,8 
498 IF b=1 OR b=2 THEN IF agt(b 
sx-kK)="8" THEN GO TO 528 

Sg1 IF b=3 OR b=4 THEN IF agt(b 
syt+k)="8" THEN GO TO 528 

s1g PLOT 127-8%Xn, 1l6Xn: DRAW JIN 
VERSE 1;-8,16: DRAW 7,98: DRAW -7 
5.2: DRAW -B, 16: DRAW  INVERSE 13 
7,8 

s20% NEXT n 

s3g PLOT mkB,mH1ó: DRAW  INVERS. 
E 156,16: PLOT 127-mx8,mX16: DRA, 
Wy INVERSE 1:-8,16 

621 PAUSE 39: IF RND <.7. THEN 
GO SUB 1999 

618 IF x=x1i AND y=yi THEN GO 7 
O 3989 
628 IF q=-1 THEN LET y=p: IF x 
=x1 AND (y1-y)%k <= m THEN LETO 
d=(y1-y)Xk: IF d>-1 THEN GO SUB 
2919 ] 
639 IF q=1 THEN LET x=p: IF y= 
y1 AND (xi-x)Xk<m THEN LET d= (x 
1-=x)Xk: IF d>-1 THEN GO SUB 281 
o 
648 INK é 
218 IF INKEYS ="a” THEN BEEP 
.1,24: GO TO 3498 
526 IF INKEY$ ="m" THEN GO SU 
B 2498: GO TO 178 
238 IF INKEYS ="6" THEN LET k 
=kx-1: GO TO 281 
248 IF INKEYS ="72" THEN IF a$, 
ta,ptk) <> "BZ" THEN LET p=ptk:, 
BEEP .2,9: GO TO 481 qt 
250 IF JINKEYS ="5S" AND b <> 5 
THEN LET k=-qxk: GO SUB 859: GO 
TO 281 


4 
“ 


26% IF INKEY$ ="8" AND b %»> So 
THEN LET k=qxk: GO SUB 858: GO | 


TO 204 
778 GO TO é81 


e1g PLOT 8X(n+1),175: DRAW INV 


ERSE 1,9,-159+16%n: DRAW  INVERS 
E 1,-8,-16: DRAW 16X(7-n)+15,9: 


DRAW  INVERSE 1;-8,16: DRAW INV 
ERSE 159,159-16%n | 
828 PLOT BX(n+1),16X(n+1): DRAW 
INVERSE 1516%(6-n)+15,9 

838 PLOT 48,48: DRAW 31,9: PLOT 
48,32: DRAW 31,9 
849 GO TO 528 | 
esg IF b=í OR b=2 THEN LET p=x 
86% IF b=3 OR b=4 THEN LET p=y 
8729 LET a=b: LET q=-q: RETURN 
1981 IF qi=1i THEN IF astal,yl)= 
5" THEN LET yi=y1+j: RETURN 
1912 IF qi=-1 THEN IF astal,x1) 

="5" THEN LET xi=x1+1: RETURN 
1928 IF x<x1i THEN LET 1=-1 

1939 IF x>x1i THEN LET 1=1 

1948 IF y<yl THEN LET j=-1 

1959 IF y>y1 THEN LET j=1 

1269 IF qi=-1 THEN GO TO 1128 
1970 LET bi= VAL agtal,y1) | 
1989 IF x=x1i THEN IF astal,yltj 
) 4) "BG" THEN LET yl=yltj: RETU 
RN 


GlorTit 


DRTIDOS 


COMPRA 
DE 


NUMEROS 
ATRASADOS 
E 
ASSINATURAS 


LISBOA — Rua Duque de Palmela, 37, 3.º Esq. — 1296 LISBOA CODEX 
PORTO — Rua Fernandes Tomás, 633, 2.º Esq., Salas 162 — 4000 PORTO 


SOJORNAL — Sociedade Jornalística e Editorial, S.A.R.L. 


' / 

Programado para o SPETRUM, por M. Hives este clás- 
sico jogo de lógica obriga-o a competir com o seu 
computador na difícil missão da descoberta de um código 
secreto. 

Será você a bater a máquina? 

O seu adversário elabora um código a partir de quatro 
cores. Você introduz as quatro cores, uma de cada vez 
e o computador mostra-lhe a posição que obteve. A 
sua recompensa é uma marca preta se acertar com a 
cor certa na posição certa e uma marca branca se 
acertar na cor, mas não acertar na posição. 

Como o jogador não sabe que marca corresponde a 
que cor, tem de tentar diversas combinações, pedindo 
a ajuda das suas capacidades intelectuais. 

No lado esquerdo do écran aparece uma coluna, onde 
são impressas as marcas, brancas ou pretas. 

Imediatamente ao lado dessa, a coluna que lhe mostra 
O número de tentativas (1 a 10) já efectuadas e as que 
lhe restam. A outra parte do écran é ocupada com as 
quatro colunas nas quais aparece o seu código de cores. 


O 
DECIFRADOR 
DE 

CODIGOS 


Linhas/Funções 


1-6 Definição dos gráficos (UDG) e instruções 
do jogo. 

11-25 Elabora o quadro das tentativas (10). 

100-115 Elabora o código sob a forma numérica. 

500-950 Pede as cores ao jogador, transformando- 
-as em números e compara-os com o có- 

digo. 

1005-1035 Controla as marcas brancas. 

1455-1470 Controla as marcas pretas. 

1480 Controla as respostas certas. 

1500 Dá-lhe uma nova oportunidade. ao usar 
FOR/NEXT. 

2000-2020 Rotina do vencedor. 

2500-2660 Transforma os números do código do 
computador em cores e imprime a respos- 
ta certa no topo do écran. 


E 


| CLS : DATA 24,60,126,255,25 
s,126,60,24: RESTORE : FOR a=0 T 
71. READ b: POKE USR "A"+a,b: 
NEXT a 
Ss PLOT 62,78: DRAW 90,0 
4 PRINT AT 21,0;"Press any k 
ey to continue” 
S IF INKEY$ ="“" THEN GO TO 
Es 
GO SUR 9900 
LET x=1 
RORDER S: PAPER S: CLS 
PLOT 0,168: DRAW 255,0 
FOR f=152 TO 8 STEP -t6 
PLOT 0,f€º: DRAW 255,0 
NEXT + 
PLOT 35,0: DRAW O, 168 
PLOT 572,0: DRAW O, 148 
FOR €4=57 TO 255 STEP 40 
PLOT +,8: DRAW O, 140 
NEXT + 
LET zxa=1+ INT («< RND X6) 


jo pa ja pad 
ONA rm om 


pot Ju 


Por ado o re : ” 
fas aa + a = de? . AA p 
o 4 


Ate 


zxb=1+ INT ( RND Xé) 
zxc=1+ INT ( RND X6) 
zxd=1+ IMT ( RND 6) 
b=1 
a=i TO 20 STEP 2 

PRINT AT a,5S; INK 255 

LET b=b+1 

NEXT a 

FOR b=1 TO 10 

PRINT AT 24,03)"Which colcu 


IF INKEYS ="" THEN GO TO 


610 IF INKEYS ="b" THEN 
nk=1: LET uaz=l 

615 IF INKEY$S ="p”º” THEN 
nk=2: LET uaz=2 

620 IF INKEYS$ THEN 
nk=7: LET uazJ | 
625 IF INKEYyS THEN 
nk=3J: LET uaz=4 


630 IF INKEYS =ºyº THEM LET i 
nk=ó: LET ua=E 

633 IF: INKEYS ="39º THEN LET à 
nk=97 LET uaz=é 

640 TF INKEYS <> “b” AND Mk 
EVO (3 Mm" AMD. INKEYS . 4) PR” 
AND INKEYS <> "w”º AND INKEYS 
> “y” AMD INKEvS <> "gº THEN 

Gº TC. 600 

448 FOR s=9 TO 60: BSEEP .005S,s: 
NEXT « 

40 PRINT AT x,9; INK ink; PAP 
ER S4ºAF 

700 PPINT AT 21,0;"Which cclou 
por 

OS DE INKEvY$& ="" THEN GO TO 
705 

710 IF INKEYS = THEM LET 
nk=1: LET ub=l 

713 IF INKEYS THEN 
nk=2: LET ub=2 

720 TF INKEYS THEM 

nk=)?: LET ub=% 

725 IC INKEYS THEN 

nk=3: LET ub=9 

730 IF INKEYS THEM 

nk=ó: LET ub=5 

2385 TF INKEYS g" THEN 

nk=4: LET ub=6 

740 IF INKEYS <> “Bb” AND INK 
EYS <> "m” AND INKEY$ O do dm 
AND INKEYS <> "g” AND INKEYS 

€> “r*" AND  INKEYS <> “Wº THEN 

Go TO 200 

745 FOR s=0 TO 60º BEEP .003,s$ 

NEXT s 

7S0 PRINT AT x,145; INK ink; PA 
PER S;"A” 

800 PRINT AT 21,0;ºWhich cole: 
P 28 

805 IF INKEY$ ="" THEN GO TO 
2085 

810 IF . TMKEYS ="b” THEM LET i 
nk=1: LET uc=1 

818 IF INKEYS THEN LET 
nk=2: LET uc=2 
.220 IF INKEYS THEN LET 
nk=72; LET uCces 

825 IF INKEYS 
nk=3: LET uc=4 

830 IF INKEYS THEN LET 
nk=6: LET uc=5 

835 IF INKEYS ="9º THEN LET 
nk=39: LET uc=óá 

840 IF INKEYS <> "b”"” AND INK 
EvS <> "r” AND  INKEYS <> “mº 
AND INKEYS <> "m" AND INFVEYS 
<> *"y” AND INKEYyS «<> “39” THEN 
GO TO 800 


845 FOR s=0 TO 60: BEEP .005,s: 


THEN LET 


NEXT s 

850 PRINT AT x,19; INK ink; PA 
PER S;"aA” 

9200 PRINT AT 21,0;"Which calou 
no e 

905 IF INKEY$S ="" THEN GO TO 
905 

210 IF INrFEYS THEN LET 
nk=1: LET ud=1 

913 TF INKEYS THEN LET 
nk=2: LET ud=2 

220 IF INKEYS THEN LET 
nk=7: LET ud=3 

925 IF INKEYS THEN LET 
nk=53: LET ud=4 

S30 IF INKEYS THEN LET 
nk=6: LET ud=5 

955 IF INKEYS =º9" THEN LET 
nk=4: LET ud=6 

940 IF INKEYS <> "b” AND INK 
EYS <> "“rº AND INKEYS <> ºwº 
AND  INKEYS <> "m" AND INKEYS 

> *"yº” AND . INKEYS <> "gg" THEN 

GO TO 900 

945 FOR s=0 TO 60: BEEP .005,s: 

NEXT s 

950 PRINT AT x,24; INK ink; PA 
PER S$; “A” à 

260 PRINT AT 21,05" 

1005 IF ua=zxb OR ua=zxc OR ua=z 
xd THEN PRINT AT x,2; PAPER 5; 

INK 725"A* 

1013 IF ub=zxa OR ub=zxc OR ub=z 
xd THEN PRINT AT x,35; INK 72; P 
APER E; "A" 

1025 IF uc=zxa OR uc=zxb OR uc= 
xd THEN PRINT. AT %x+2,23 INK ? 
had” ae 

1035 IF ud=zxa OR ud=zxb OR ud=z 
xe THEN PRINT AT x+1,3)4 INK Zi 
“As é 

1455 IF ua=zxa THEN PRINT AT x 
s25 PAPER 5; INK OS"A" 

1460 IF ub=zxb THEN PRINT aAT 
+35 INK O; PAPER S; "A" 

1465 IF uc=zxc THEN PRINT aT 
+1,21 INK OS"A” 
1420 IF ud=zxd THEN PRINT aT 
+3,53 INK' 05 PAP 
1475 LET x=x+2 
1480 IF ua=zxa AND ub=zxb AND uc 
=zxc AND ud=zxd THEN GO TO 2000 
1500 NEXT b 
1510 GD .TO 2300 
2000 FOR s=0 TO 7 STEP ..3 
2010 PRINT AT 0,205 INK s;"CORR 
ECTº 
2015 BEEP .004,sx8 
2020 NEXT s 


a 
. 
, 


AO US 


o a dácia 


2500 PRINT AT 0,.01"Answer= 2650 IF zxd=S5 THEN LET i=ó 

2510 IF zxa=1i THEN LET tnk=l 7655 IF zxd=6 THEN LET i=4 

2515 IF zxa=2 THEN LET ink=2 2460 PRINT AT 0,24; INK isa” 
2520 IF zxa=3 THEN LET iínk=7 2670 PRINT AT 21,05"Press any k 
2525 IF zxa=4 THEN LET ink=3 ey to play again” 

25350 IF zxa=5 THEN LET ink=ó 267% 1F . INKETS sr” THEN - CO TW 
2835 IF zxa=ó THEN LET ink=4 2€75 

2540 PRINT AT 0,9; INK ink;"aA" 2680 CLS +: GO TO 10 

25S0 IF zxb=1 THEN LET i=i 9900 PAPER S: CLS : PRINT AT 2, 
2555 IF zxb=2 THEN LET i=2 O:ºº"b* -”j ÍNK 1$4"Blue? 

2560 IF zxb=3 THEN LET i=7 9901 PRINT *"?pº. -*"4 INK 25"Red" 
2565 IF 2zxb=4 THEN LET i=3 2902 PRINT ""'w' -"5 INK 7; "Whit 
2570 IF zyb=S THEN LET i=ó6 e" 

2575 IF zxb=é THEN LET i=4 9905 PRINT *"'mº ="; INK Si "Nage 
2580 PRINT AT 0,14; INK is"aA" nta" 

2€90 IF zxc=1 THEN LET i= 9904 PRINT ""ºy' -“4 INK 6;"Yell 
2595 IF zxc=2 THEN LET i=2 ow" | 
2600 IF zyxc=3 THEN LET i=7 2905 PRINT "ººgº -*“; INK 4; "Cree 
2605 IF zxc=4 THEN LET i=3 nº 

2610 IF zxc=5 THEN LET i=6 9907 INK O 

2615 IF zxc=6 THEN LET i=4 9910 PRINT """“When asked ""Whic 
2620 PRINT AT 0,195 INK isa" h colour ?2"" use the above lette 
2430 IF zxd=1 THEN LET i=i rs"""“Press any key to start” 
2635 IF 2zxd=2 THEN LET i=2 9915 IF INKEY$ ="" THEN GO TO 
2640 IF zxd=3 THEN LET i=7 P915 

2645 IF zxd=4 THEN LET i=3 Vá di e 


wras-Presli 


Caneta de tinta líquida 
com esfera metálica de 


longa duração, que escreve 


em qualquer ângulo. 
Faz cópias a «químico» 
claras e nítidas. 


a tradicional de corpo azul 
e a ULTRA-FINA (0,2 mm) | 
de corpo preto em 4 cores 


2 versões: 


Lapiseiras de precisão 


Evoluída tecnologia 
de fabrico nas medidas 


em 5 modelos à sua mes | / 


0,3-0,5-0,7-0,9 mm 
de espessura de traço. 


Com apagador e arame 
de limpeza incorporados, 
clip metálico e apoio 


Ef 


Marcadores de traço intenso 
extra-fino, de alta precisão. 
Duas espessuras de traço à 
escolha: 0,2 e 0,3 mm. 
Escrita nítida 
e confortável. 

Dm, 


/| 


HH 
F/ / / | 
atas E / ha 


A ponta de «design» exclusivo 
produz um fluxo constante de 
tinta e um traço de espessura 


de escrita. 
A tradição de qualidade do fabricante: 


MITSUBISHI PENCIL CO,., LTD. 


à venda nas boas casas da especialidade 


Distribuidor em Portugal e Ilhas: 


ARTUR WESTHEIMER, LDA. 


Largo Cristóvão da Gama, 10-B, Damaia 
2700 AMADORA 


anti-derrapante. 


A tradição de- qualidade do fabricante: 


MITSUBISHI PENCIL CO,., LTD. 


pe 


à venda nas boas casas da especialidade 


Distribuidor em Portugal e Ilhas: 


ARTUR WESTHEIMER, LDA. 


Largo Cristóvão da Gama. 10-B. Damaia 


2700 AMADORA 


| Uniforme. 


| À tradição de qualidade do fabricante: 
hs PENCIL CO., LTD. 


à venda nas boas casas da especialidade 


Distribuidor em Portugal e Ilhas: 


ARTUR WESTHEIMER, LDA. 


Largo Cristóvão da Gama. 10-B. Damaia 
2700 AMADORA 


a e or . Ja 


PACIÊNCIA 


DE OITO CARTAS 


Se gosta de paciências aqui 
tem uma que não é das mais 
fáceis. Um programa complexo, 
permite ter atê dez montes de 
cartas expostas e mais um na 
mão. Mas cada monte dispõe 
de uma sequência diferente 
para busca da carta de que se 
necessita. 

Resumindo, o objectivo é o 
de fazer quatro montes, com 
as cartas seguidas e em ordem 
ascendente, tiradas de um 
monte com as cartas tapadas 


e do resto que ainda tem na 
mão. O programa indica-lhe 
sempre a carta que está no fun- 
do do monte tapado. 


Programa das 
Operações 


As 52 cartas são representa- 
das por uma sequência de cin- 
co caracteres que lhe indicam 
a designação da carta, o valor 


(2 caracteres), O naipe e a cor. 
As cartas são originadas em A$ 
e depois baralhadas. Após a 
formação do monte de 13 car- 
tas tapadas, o resto transforma- 
-se em P$ e é manipulado para 
ir construindo gradualmente os 
vários montes, dando três car- 
tas de cada vez. 

As cartas não transferidas 
para outra sequência à medida 
que vão sendo dadas mas uma 
variável PSL volta a colocar P$ 
na posição correcta. 


1020-1060 
1070-1090 
1100-1200 
1210-1230 


1250 
1260-1410 


1420-1430 
1490-1530 
1540-1560 
1570-1580 
1585-1690 
1700-1770 


1780-1800 


1810-1830 
1850-1890 
1900-2050 
2060-2150 
2160 


2170-2260 


2270-2630 


2640-2690 
2700-2880 
2990-9993 


Linhas/Funções 


Inicializa e chama as instruções para o jogo. 

Escolhe o monte «escondido». 

Dá as cartas do monte «escondido» e tira a pri- 

meira carta para a fila de cima. 

imprime a segunda fila de cartas e remete para a 

linha 1420, que inicia a parte principal do progra- 

ma. 

imprime a parte de trás de uma carta. 

imprime uma carta. A posição é fixada por uma 

nie definida, baseada na carta que foi escolhi- 
a. 

Escolhe mudar uma carta ou dar a mão. 

Subrotina para aceitar o movimento de uma carta. 

Rejeita qualquer entrada fora das regras. 

Selecciona a rotina apropriada quer do movi- 

mento de um monte quer da carta dada. 

Imprime de novo uma carta se houver uma entra- 

da falhada ou rejeitada. 

Movimenta cartas uma a uma, de um monte para 

o outro. 

Verifica a validade do objectivo. Se estiver errado 

imprime FLT flag. Se estiver correcto imprime a 

carta numa nova posição. 

Vai buscar uma carta ao baralho e recoloca a va- 

riável do número de cartas. 

Retira uma carta de um dos montes e volta a partir. 

Retira uma carta do monte das cartas voltadas. 

Dá as cartas. 

Mostra as cartas e baralha. 

Subrotina que se chama no fim de outras, para 

continuar o jogo. 

Fim de jogo. Chama-se quando aparece RES flag 

por desistência do jogador. Dá opções para con- 

tinuar. 

Rotina de instruções. Pode haver a tentação de se 

omitir as instruções, mas recomenda-se a sua in- 

trodução para futuras referências. 

Em qualquer caso, as linhas a partir de 2530 de- 

vem ser incluídas, visto estabelecerem a forma de 

dar as cartas. 

Inicializa valores. 

Elabora gráficos. 

Instruções para fazer o SAVE e o LOAD. 


» » a 
mr CARD PAT IENÇES 
o ps O e APAE PAL AO A, ND ENA RP DSARA 


EE 


y 


ones a 


RAD o 2 
A GEES 
* Ent Qua” À NAILS LILLE SA ea DOI Ac : sa A 
Eira H Ss aa SS JOSS ENS tem SS Apaga 
3%] SS 83 o Q 


DO YOU 
UANT THE 
RULESY? 


2 dá .. OR SEE” 
(YES/NO) 


= 3 
Rs 
+ 

, A » 

ww 

o » , 

% 


” 


WA 


1 REM KXKKXKKXKKKXKKKXKXKKX AH 
EtUnderlined characters 
tare entered in X 
XGRAPHICS mode. x 
AAKAXKKRLAKKKXANAXK KA ALE 


Z REM U.D.GRAPHICS CHARACTERS 

IN LINES 1249. 1319.13290.1%50.1 
"40. 1629 

1000 REM PATIENCE-C.Il.GBOCH 1904 
1020 DEF FN A(X)=(PEEK M)+192: D 
EF Fr BR(X)=(PEEK X)-192 

19380 DEF FN C(X)=6X(X=2 OR X=E)+ 
12%(X=]Z OR X=7)+10%(X=4 OR X=6) 
19040 RANDOMIZE : RANDOMIZE 

1050 PAPER 4% CLS à LET KSs*4º 
18€0 GO SUR 2649: GO SUB 22780: G 
Q SUR 2949: BORDER 4: PAFER 4: I 
NK O: CLS : PAUSE 59 
1976 REM CHOOSE STACK 
1909 LET S&=A&( TO 65): LET PS=A 
G(gé TO ): LET FSL=1 
120990 PAUSE 539 
11990 REM PRINT STACK . 
1119 PRINT AT 82,6) PAPER 65 INK 
9/"8 CARD FATIENCE” 
1129 FOR N=1 TO 4: PRINT AT 9,6% 
N-45 PAPER 65" "SNI" "LAT Z1,6KN 
-44" "6N+45" "4 NEXT Nº PRINT AT 
21,255 PAPER 61 "DEAL(S)" 
11359 PAUSE 590: INK 1: PRINT AT 2 
FOR N=3 TO 


51268) PAPER 71º 
25 PRINT AT N,26) PAPER 75" JECE 
Nº: NEXT Nº PRINT AT 8,26) PAFER 


1148 INK 1: FOR M=1i TO 13: FOR N 
=72 TO 7: PRINT AT N,245 PAFER 73 
PRINT AT N+1,26) PAPER 
MEXT N: PRINT AT 2,26 
| REEP .91,2: N 
EXT M: PRINT AT 19,74; PAPER 63" 
Stack "ISTACK 
1158 PRINT PAPER 4JAT 11,213º 
"2 IF ENDP THEN PRINT A 
T 11,211 PAPER &J "PACK USED" 
1169 LET L=14: INK 1: FOR M=1 TO 
19 STEP &: GO SUB 1259 
1178 MEXT M 
1180 REM CARD OFF STACK TO TOF 
1199 GO SUR 2148: LET X=9: LET Y 
«2: LET C$=SS(SLST TO SLST+9): L 
ET SLST=SLST+S! LET K$=C$(1): LE 
T R$(1)=C%! LET R(1)=&: LET STAC 
K=STACK-1: PRINT AT 19,39] PAPER 
63” "SAT 1O,39]STACK: GO SUP 1 
Zé 
1299 PRINT AT 19,9; INK 91 PAPER 
SI "BASE VALUE TOP ROU """SKEp"" 


- 


“9º P4AT 12,37 PAPER St" BO 
TTOM ROW: - ai 


1210 REM PRINT INITIAL BOTTOM R. 


1228 GO SUR 2166: LET Xx=8: LET F 


A=5: FOR N=8 TO 19 STEP 5: LET C 

&=PS(14N TO S4N): LET RE(FA, TO 

S)=C6: LET R(FA)J=6: LET FA=FAs1: 
LET Y=14: GO SUB 1268: PRINT AT 
13,FN C(FA-1)+35 PAPER SICS(1): 
LET X=X+6: NEXT Nº LET P$=FS(ZI 
TO ): LET PCD=35: LET CD1=9: LE 

T DEAL=1 

1238 GO TO 1429 

17248 REM PRINT CARD BACK 

1259 INK 1: PRINT AT L,M; PAPER 

74"GHHHI": FOR N=Lti TO L+5: PRI 

NT AT N,Mj NEXT 
N: PRINT AT L+6,M; PAPER 75 "ELL 

LM": RETURN 

1269 REM PRINT CARD 


ASV 


1278 PRINT PAPER 4JAT 12,253" 
“SAT 13,255" "a EF EM 
DP THEN PRINT AT 12,255 PAPER & 
;* EMO OEPLAT 13,261" PACK - * 
1289 INK VAL C$(5): LET EE=C&(d) 
: LET F$&=C$(1): IF C$E(i)=KE THEN 
FOR B=1 TO 5: BEEP .91,5XB: NE 
XT B 
1298 PAPER 7: FOR M=Y TO 9+12X(Y 
23): PRINT AT M,X+135 INK 94" 
“: NEXT M: PRINT AT Y,X+1;F&;AT 
Y+6,X+5SIFE 
1399 PRINT AT Y+1,X+1;EGIAT Y+5, 
X+S;E& 
1319 IF (FS="AP)+(FS="5")+(F&="5 
")+4(F&="92") THEN PRINT AT Y+43,X 
+35; ES E 
3290 IF (F&="2")+(F$="53") THEN 
PRINTATY+2,X+TIESJAT Y+I,X4TIE E 
13309 IF (F&="4")+4(FS="5S")+(FE="9 
")+(FE="9")+(F6="A") THEN PRINT 
AT Y+2,X+Z]ESJAT Y+Z2,YX+4FESSAT 
Y+4,X+2]ESJAT Y+4,X+4;ES 
1349 IF (F&="6")+(F$&="7") THEN 
PRINT AT Y+1,X+2/ESJAT Y+L,X+45E 
SJAT Y+3, X+2SESJAT Y+43,X+IFESFAT 
YES, X+2]ESJAT Y+5,X+9/ES 
1359 IF (F$="7") THEN PRINT AT 
Y+53, KX+SIES 


368 IF (FE="9")+(FE="9")+(F$="A 
") THEN PRINT AT Y+1L,X+Z23ESJAT 
Y+1L,X+I;ESJAT Y+5, X+2) ESJAT Y+5, 
X+4;ES 
1370 IF (F&="A") THEN PRINT AT 
Y43, X+ZIESSJAT Y+I,X+4ÇES 
1389 IF F$="]J" THEN PRINT AT Y+ 
1,X+35 "ma" PAT V+B,XHIAPENIAT YIZ 
X+IPPUNIAT Y+G,XEBIP DP ENSAT vis 
EE] 

1399 IF FE="0" THEM PRINT AT Ya 
L,Xs23” as PJAT VED,MEZL EL DJAT 
VT, X+AZPM DENSAT Y+9,X+2;" EA PSA 
TY4S,X+DI” MPMIAT V+6,M+TE 
14909 IF Fé&="K” THEM PRINT AT Y+ 
L,XDIPB E CSAT Y+2,X+2;"BHJAT Y 
ET, XADI PME CJAT Y+4,X+2P"BCSAT Y 
+53, X+25 "0 E” 

1419 RETURN 
1428 REM ECECT TOSMOVE 
1439 IF NOT STACK AND NOT. PCD AN 
D RS) +R(E)4RIZIFRIB)=4 THEN LE 
T RES=9: GO TO 2168 
1448-. PRINT. NLIAT 9,95” PRESSA 
MOVE CARD (2) DEAL "“SATTL501* 

OR (GB)RESIGN '": PAUSE 9 
1459 IF INKEY$="1" THEN GO TO 1 
asa 


1453 IF IMGEVE="2" THEN GO TO 1 
Sad 


1970 IF INKEY$="9" THEN LET RES 
=1: IMPUT º“º: GO TO 2169 
14209 PAUSE 9: GO TO 1459 
1490 IMPUT JAT G,9! "ENTER TUC UU 


MECPS TOGETHER. CARD“;AT 1,0;"TO- 


MOVE € DESTINATION. eg.95"| LINE 
=z 

1590 IF Z$="" OR LEN Z&2 OR LEM 
Z$>72 THEN GO TO 1499 

1519 IF (CODE Z&(1)<49 OR CODE 2 
$S(72)<49)+(CODE Z$(1)257 OR CODE 
26(72)957) THEM INPUT "ENTRY UNA 

CCEFTABLE.RE-ENTER"; LINE Z$: GO 
TO 1590 

1528 LET ZI=VAL Z$(1): LET Z2=VA 

L. 2842) 

ISTO IF Z1<5 OR Z1=2Z2 OR 2729 TH 

EM  INFUT “ENTRY UNACCEPTABLE.RE 
-ENTER"; LINE Z$: GO TO 1599 
1549 IF NOT DEALT AND Z$(1)="9" 

THEN PRINT 41;"NO CARDS DEALT Y 

ET": PAUSE 199: GO TO 1499 

1559 IF Z$(1)<>"9” THEM GO TO 1 

seg 

1569 LET FLT=8: IF z$(1)="9" THE 


NH GO SUB 1578: GO SUB 1578: LET 
FLT=9: GO TO 1439 
1578 IF NOT FLT THEN RETURN 
15890 LET Y=14: LET X=25: GO SUB 
172650: RETURN 
1599 LET FLT=8: IF Z2>=5 THEN L 
ET FD=1: LET D$="": FOR M=R(Z1)- 
1 TO 1 STEP -S: LET D$=DS+RS(ZI, 
M-4 TO MD: NEXT M: LET R$(Z1)=D$ 
1699 LET FLT=9: FOR N=R(ZL) TO 6 
STEP -S5 . 
1619 IF N=6 OR FD THEN FOR M=1 
TO 7: PRINT AT 13+M, 1+FN C(Z1); 
PAPER 4;" “: NEXT M: GO TO 1 
ó3g 
1628 LET C$S=RS(ZI,R(Z1)-19 TO Rí 
Z1)-6): LET Y=14: LET X=FN C(Z1) 
: GO SUB 1268 | 
1<35 LET CS=R$S(ZL,R(ZI)-S TO R(Z 
1)-1): LET Y=2+12%(22)=5): LET X 
=FN C(Z2): GO SUB 1799 
1648 IF FLT THEN LET CS=R$((Z1) 
+sR(Z1)-5 TO R(Z1)-1): LET Y=14: 
LET X=FN C(Z1): GO SUB 1269: GO 
TO 1439 
1659 GO SUB 1819 
1668 NEXT N: LET FD=8: GO TO 
g ; 
1670 IF PSL=1 THEN FOR N=14 
26: PRINT AT N,265 PAPER 4;" 
": NEXT Nº: GO TO 1699 
1689 LET C$=PS(PSL-S TO PSL-1): 
LET Y=14: LET X=25: GO SUB 1269 
1699 LET c$=P$(PSL TO PSL+49): LE 
T Y=2+12%(22>4): LET X=FN C(Z2) 
1789 IF R(Z2)=1 AND C$&(1)=K$ THE 
N GO SUB 1269:-GO0O SUB 1798: RET 
URN | 
1718 IF R(Z2)=1 AND R$(Z1,1)=K$ 


THEN GO SUB 1268: GO SUB 1798: 


RETURN 

1728 IF R(22)=1 THEN LET FLT=1: 
RETURN 

1730 IF Z2<5 AND VAL C$E(2 TO S)= 
1 AND VAL R$E(Z2,R(Z2)-4 TO R(Z2) 
-3)=13 AND C$S(4)=R$S(Z22,R(Z2)-2) 
THEN GO SUB 1269: GO SUB 1799; 
RE TURN 

1740 IF Z2>=5 AND VAL C$S(2 TO 5) 
=15 AND VAL R$(Z2,R(Z2)-4 TO RíZ 
2)-3)=1 AND C$S(49)=R$(722,R(Z2)-2) 
THEN GO SUB 1268: GO SUB 1798: 
RE TURN 

1758 IF Z2<5 AND VAL C$S(2 TO S)= 
VAL R$(Z2,R(Z2)-4 TO R(Z2)-3)+4) 


AND C$S(9)=R$(Z2,R(Z2)-2) THEN G 
O SUB 1268: GO SUB 1799: RETURN 
1760 IF Z2>=5 AND VAL C$&(2Z TO 3) 
=VAL R$(Z2,R(Z2)-4 TO R(Z2)-3)-1 
AND C$(4)=R$(Z2,R(Z2)-2) THEN 
GO SUB 1269: GO SUB 1799: RETURN 


1778 LET FLT=1: RETURN 

1788 REM MOVE CARD; DEC PACK 

1799 LET R$(Z2,R(Z2) TO R(Z2)+4) 

=C$: LET R(Z2)=R(Z2)+5: IF Z1=9 

THEN LET P$=P$( TO PSL-1)+P$&(PS 

L+5 TO ): LET PSL=PSL-S:- LET PCD 

=PCD-1: RETURN 

1898 RETURN 

1819 REM REMOVE CARD FROM TRICK 

1829 LET R(Z1)=R(Z1)-S: IF R(Z1) 
t=1 THEN GO TO 1859 

1839 LET R$E(ZI)=R$E(ZI, TO (R(ZI) 
-1)): RETURN 

1848 REM CARD OFF STACK 

1850 IF INKEY$<>""” THEN GO TO 1 

esg 

1869 IF NOT STACK THEN RETURN 
1879 LET STACK=STACK-1: LET C$=S5 

$S(SLST TO SLST+4): LET SLST=SLST 
+5: LET R$(21)=CS: LET R(Z1)=6: 
LET v=14: LET X=EN C(Z1) 

1889 PRINT HISAT B,9; "PRESS ""EN 
TER"" TO FETCH NEWº;AT 1,9; "CARD 
FROM STACK": PAUSE 9: IF STACK= 
& THEN FOR N=2 TO 8: PRINT AT W 


AGO 


,26; PAPER 45" “: NEXT N: 
1890 GO SUB 1268: PRINT AT 19,39 
: PAPER 65 INK 95" ";AT 18,39;S 
TACKIAT 13,FN C(Z1)+3; PAPER 5j;C 
&(1): RETURN 

19990 REM DEAL 

1919 IF INKEY6&<>"" THEN GO TO 1 
218 | 

1929 IF PCD=9 THEN PRINT AT 14, 
Z7; FAFER 25 INK Z; "NO";AT 16,76 
; "CARDS";AT 19,26; "LEFT": GO TO 
1439 

19]J9 LET DEALT=DEALT+1: 

1946 IF EMDF THEN LET FSL=1: LE 
T ENDP=O 

105g LET PSL=PSL+15-SX(PSL=1) 
1968 IF PSL>=PCD*5S OR PSL=PCDXS- 


s 


THEN LET PSL=PCDKXS-4: LET END 


4 
P 
1 


S26 IF DEALTYP=2 AND PSL=PCD%S- 
14 THEN LET ENDP=1 
1989 IF DEALTYP=2 THEN 
geaa 


1990 LET C$&=PS(PSL TO PSL+49): LE 
T Y=14$ LET X=2s5: GO SUB 1260: G 
O TO 1438 

2000 IF PCD=I THEN LET P$=PS(PS 
L TO PSL+9)+P$S:PSL-S TO PSL-1)+P 
S(PSL-19 TO PSL-é): RETURN 

2019 IF PCD=2 THEN LET P$=P$S(PS 
L TO PSL+9)+P$&(PSL-S TO PSL-1): 
RETURN 

ZA2& IF PCD=1 THEN RETURN 

2038 LET D$=P$(PSL-14 TO PSL+49) 
20404 LET P$E(PSL-18 TO PSL-6)=DSí 
11 TO 15): LET P$(PSL TO PSL+49)= 
D$(1 TO 5) 


2854 RETURN 

2860 REM SET UPPACK 

2070 LET A$="": LET D$="AGIZOZIA 
FIBISAS6O67078BRS9BPALDILIQIZKIT" 
2888 PRINT AT 8,9; INK 1; PAFER 


GO SUE 2 


'5; B$; B$; BESSBSJAT 190,19; FLASH 1; 


“PAPER 73 INK 2;"PREPARING PACK" 
JAT 12,9; FLASH 8; PAPER 5; INK 
1; E$; B$; B$; B$ 
2996 FOR Q=1 TO 39 STEP 3: FOR P 
=1 TO 4: LET COL=8: IF P=1 OR P= 
3 THEN LET COL=2 
2190 LET AS=AS+D$(Q TO 0+2) +BS(P 
)J+STR$ COL 
2119 NEXT P: NEXT Q 
2128 CLS : PRINT AT 8,9; PAPER 5 
; INF 1;B$;B$;BS;BS;AT 19,12; PA 
PER 7; FLASH 1; "SHUFFLING";AT 12 
19; PAPER 5; INK 1; FLASH 95BS;EB 
$; R$; B$ 
2128 FOR N=1 TO 68: LET A=1+(5%( 
1+4INT (RNDX59))!: IF n/2=INT (n/ 
2) THEN LET AS=AS(A TO A+4)+AS( 
TO A-IL)+AS(A+S TO ): BEEP .81,M 
2140 IF n/2<>INT (n/2) THEN LET 
AS=AS( TO A-IJ+AS(A+S TO )+ASIA 
TO A+4): BEEP .B1,N+1G 
2158 NEXT N: CLS : RETURN 
2154 INPUT "PRESS ENTER TO CONTI 
NUE"; LINE Z$: BEEP.95,1S: RETURN 
2176 FEM END GAME 
2189 PAPER 5: INK 1: FOR N=12 TO 
21: PRINT AT N,9; PAPER 55" 
:M 


EXT N 

2198 IF RES THEN PRINT AT 13,1; 
"RAD LUCK: THE CARDS DID NOT ";A 

T 14, 15 "RUN YOUR WAY" 

22909 IF NOT RES THEN PRINT AT 1 

3,51 WELL DONE !'! 
MIMI NSAT 14,15 FLASH 95"YOUR PAT 
IENCE IS REWARDED" 

2219 PRINT AT 16,35"YOU MAY";AT 
17,5; "1)PLAY AGAIN: SAME DEAL"JAT 
18,5; "2)PLAY AGAIN: OTHER DEAL"; 

AT 19,5; "3)FINISH PLAYING" 

22284 PAUSE 9 | 

22386 IF INKEY$="1" THEN BORDER 

4: PAPER 4: INK 8: CLS : GO SUB 

2648: GO SUB 2129: GO TO 1979 

2248 IF INKEY$S="2" THEN LET DEA 

LTYP=DEALTYP+1-2X(DEALTYP=2): BO 

RDER 4: PAPER 4: INK 9: CLS : GO 
SUB 2649: GO SUB 2128: GO TO 19 

78 

2258 IF, INKEY$="3" THEN CLS: P 

RINT AT 19,95 “START TAPE TO LOAD 
NEXT GAME": LOAD *" 

2260 PAUSE BG: GO TO 2239 

2279 REM INSTRUCTIONS 

2289 PAPER 2: INK 7: BORDER 5: C 

LS 

2296 PRINT AT 9,9; INK 1; PAPER 

FOR N=1 TO 


29: BEEP .91,2XN: 
INK 1; 
: MEXT NS: 


ASP 


2z99 PRINT AT 2,14; BRIGHT 14 PA 

PER &3 INK GI "EIGHT";AT 18,14;"C 

ARDS" 

2319 LET T$="PATIENCE":: FOR M=2 
TO 17 STEP 2: BEEP .91,29-M: PR 
INT AT M+1,11+M/2; PAPER 6; BRIG 

HT 15 INK G5T$E(M/2): NEXT M 

2329 PRINT AT 19,1; BRIGHT 1;"DO 
YOU"sAT 12,9; "WANT THE";AT 149,1 
s "RULES?"GAT 19,25)" PRESS";AT 1 
2,24; "CYeORPPNP""SAT 14,245"(Y 
ES/NO)" 

2339 PAUSE 9: IF INKEY$="N" OR I 


NKEY$="nº THEN FOR n=z19 TO 28: 
BEEP n/199,20: NEXT n: CLS : GO 
SUB 26298: GO TO 2539 
23480 IF INKEYS<>"Y” AND INKEYS<> 
“vo JHEN 00 TO 2330 
23550 PAPER 4: INK 9: CLS : PRINT 
AT 9,45 PAPER 5; "RULES FOR 8 CA 
RD PATIENCE" 
2369 GO SUB 2629 
2370 PRINT AT 2,8; PAPER 75"The 
playing area"j;AT 3,8;"is set out 
thus-" AT 4,8; FLASH 1;"E"FAT 4 
195 FLASH 9;"A Spare Stack" sAT S 
,133"af 13 -cardsº: LET L=2: LET. 
M=26: GO SUB 12489: POKE 22716,FN 
A(22716) 
2389 GO SUB 2169: POKE 22716,FN 
B(22716): PRINT AT 4,85 PAPER 7; 
2398 PRINT AT 6,8; INK 93 PAPER 
71 FLASH 1;5"X";AT 6,95 FLASH 9; 
"A bottom row": LET L=14: FOR M 
=1 TO 20 STEP 6: G0 SUB 1248: PC 
KE 23974+M,FN A(23974+M): NEXT M 
24080 GO SUB 21698: FOR M=1 TO 29 
STEP 6: POKE 23974+M,FN B(23974+ 
MJ): NEXT M: PRINT AT 6,85 PAPER 
2,1» 
23419 PRINT AT 7,8; PAPER 725 INK 
qd FLASH 1;"X";AT 7,95 FLASH 95" 
à Top card": LET C$="49409": LET 
A=8: LET Y=2: GO SUB 1269 
24290 POKE 22691,FN A(22691): GO 
SUB 2169: PRINT AT 7,85 PAPER 7; 
“ *: POKE 22691,FN B(22691) 
2439 PRINT AT 8,8) PAPER 73 INK 
; FLASH 1;"X";FAT 8,9; FLASH 85" 
An area where ";AT 9,9;"cards ma 
y be ";AT 19,19; "dealt” 
2448 FOR N=14 TO 29: PRINT AT SN, 
265" “1 NEXT Nº: POKE 27199,F 
N A(231998) | 
2459 GO SUB 2169: PRINT AT 8,85. 
PAPER 7;º" ": POKE 231998,FN B(231 
90): GO SUB 2629 
2469 PRINT AT 2,85 PAPER 75"Card 
s are dealt"JjAT 3,Bj;"three at a 
time" ;jAT 4,8;"The top row is"jaT 
>, Bj"completed with"jaAT 6,85"ca 
rds the same“jAT 7,8j"value as t 
he" ;jaAT 6,8;"first from the "jAT 
9,8;"dealt pack or "jAT 19,6;"b 
ottom row" 
2478 GO SUB 2169: GO SUB 2629 


2488 PRINT AT 2,85"Cards from th 

e"';aT 3,8;"bottom row, or"jAT 4, 

8;"dealt pile are";jAT 5,8;"built 
in ascend-";jAT 6,8;"ing order o 

n the"s;AT 7,8;"top row and inºjaA 

T 8,68; "descending on"jaAT 9,8;"th 

e bottom” | 

2498 GO SUB 2168: GO SUB 2628 

25006 IF INKEY9S<>º"" THEN 60 TO 2 
soa 

2510 PRINT AT 2,8;"when cards ar 

e";jaT J,8;"moved from the"jAT 4, 

8;"bottom to top";jAT 5,85"“row or 
along";AT 6,8;5" bottom the gap” 
sAT 7,B;"is filled from";AT 8,85 
"the spare stack.";AT 9,B;ºA *5 
INK S;"H"; INK 68;" marker shows” 
'AT 190,8;"base value": PRINT AT 
13,95 INK S; FLASH 15" 

2520 GO SUB 2168: PRINT AT 13,95 
PAPER 45” *: GO SUB 2629 

25384 PRINT PAPER 725; INK G;AT 2Z, 

8;"Ycu must choose";jAT 3,8;"the 

type of deal";jAT 4,8;"1)Straight 
block";jAT 5,19;"of three cards" 

2548 PRINT PAPER 75 INK G;AT é, 

8;"2)Block of three"jaAT 7,19;"in 
reversed";AT 8,1G;"order"jAT 9, 
103º""2º"* ig harder"jaT 19,195 "9 

ame": PRINT HI;FAT 1,9; PAPER 75 
TA A CEREODS ML "92 

2554 PAUSE 9: INPUT "": IF INKE 

Y$="1" THEN LET DEALTYP=1 

2562 IF INKEY$="2" THEN LET DE 

aALTYP=2 

2578 IF INKEY$S<>"1" AND INKEYS<> 
“2” THEN GO TO 2539 

2588 IF INKEYS<>"" THEN GO TO 2 

sBg 

2590 GO SUB 2628: PRINT AT 2,85 

PAPER 7; INK 9;"To repeat rules" 
'AT 3,8B5"press ""1"º"";AT 5,85"ot 
herwise press'"j;AT é,8;"any key t 

o play” 

2608 PAUSE GB: IF INKEY$="1" THEN 
GO TO 2359 

2618 CLS : RETURN 

2629 FOR N=2 TO 19: PRINT AT N,8 
| PAPER 753" “s NE 

XT N: RETURN 

2638 RETURN 

2649 REM INIT 

2659 LET A=1: LET S8L=1: LET STAC 

K=13 

266% LET FD=9: LET ENDP=9: LET D 


EALT=8: LET SLST=1 

2678 DIM R$(9,85): DIM R(8): FOR 
N=1 TO &: LET R(N)=1: NEXT N 

2688 LET B$="BDCE" 

2698 RETURN 

2788 REM GRAPHICS 

2718 BORDER Z: CLS : PRINT AT 18 
23 "STOP THE TAPE PLEASE" 

2728 RESTORE 2789: FOR N=92 TO 14 
: FOR M=9 TO 7: BORDER M: BEEP 

B1,N | 

2738 READ A: POKE USR CHR$ (972+N 
J+M,A: NEXT M: NEXT Nº: GO TO 195 

a 

2748 DATA 9,94,82,82,82,82,94,9 

2758 DATA 9,16,56,124,254,124,56 
516 

276% DATA B,198,254,254,124,124, 

Só, ló j | 

2778 DATA 16,56,124,124,254,214, 

84,16 

2789 DATA 9,56,56,16,214,254,214 
516 

2798 DATA 126,189,219,231,231,21 

9,189, 126 

2829 DATA 255, 128,128,135,135,15 

Ss, 157, 158 

2819 DATA 255,9,9,231,231,219,18 

9,126 

2628 DATA 285,1,1,225,225,217,16 

Ss 171 

2638 DATA 158,157,155,135,135,15 

S,157,158 

2849 DATA 158,157,155,135,135,12 

8, 128,255 

2856 DATA 126,189,219,231,231,9, 

g, 255 

2868 DATA 121,185,217,225,225,1, 
1,255 

2878 DATA 121,1465,217,225,225,21 
7,185, 121 

2888 DATA 128,128,128,128,128,12 
8,128, 128 

9998 SAVE "patience" LINE 2799 
9992 CLS : PRINT "SWITCH PLUGS A 
ND BEWIMD TO “º "VERIFY, START 
TAPE" 

9993 VERIFY "patience": CLS : PR 
INT "ALL OK" 


AGO 


